/*   Copyright (C) 1994-2001 Digitool, Inc*/#include <stdio.h>#include <stdarg.h>#include "lisp.h"#include "area.h"#include "lisp-exceptions.h"#include "lisp_globals.h"/* More-or-less like c printf(); */int Dprintf(const char *format, ...);char *print_lisp_object(LispObj);voidplprint(ExceptionInformation *xp, LispObj obj){  if (lisp_nil == (LispObj) NULL) {    fprintf(stderr,"can't find lisp NIL; lisp process not active process ?\n");  } else {    Dprintf("\n%s", print_lisp_object(obj));  }}